home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / libg_261.zip / libg_261 / libg++ / src / Erlang.cc < prev    next >
C/C++ Source or Header  |  1992-03-05  |  1KB  |  33 lines
  1. /* 
  2. Copyright (C) 1988 Free Software Foundation
  3.     written by Dirk Grunwald (grunwald@cs.uiuc.edu)
  4.  
  5. This file is part of the GNU C++ Library.  This library is free
  6. software; you can redistribute it and/or modify it under the terms of
  7. the GNU Library General Public License as published by the Free
  8. Software Foundation; either version 2 of the License, or (at your
  9. option) any later version.  This library is distributed in the hope
  10. that it will be useful, but WITHOUT ANY WARRANTY; without even the
  11. implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  12. PURPOSE.  See the GNU Library General Public License for more details.
  13. You should have received a copy of the GNU Library General Public
  14. License along with this library; if not, write to the Free Software
  15. Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  16. */
  17. #ifdef __GNUG__
  18. #pragma implementation
  19. #endif
  20. #include <builtin.h>
  21. #include <Random.h>
  22. #include <Erlang.h>
  23.  
  24. double Erlang::operator()()
  25. {
  26.     double prod = 1.0;
  27.  
  28.     for (int i = 0; i < k; i++) {
  29.     prod *= pGenerator -> asDouble();
  30.     }
  31.     return(-log(prod)/a);
  32. }
  33.